cses2$B1004 <- as.character(cses2$B1004)
cses2$B1009 <- as.character(cses2$B1009)
cses2$ita_filter <- 0
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="110601")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="110602")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="110603")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="110604")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="110605")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="110606")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="111101")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="111102")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="111103")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="111104")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="111106")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="111107")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="111108")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="111301")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="111302")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="111303")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="111304")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="111305")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="111306")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="111307")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="111401")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="111402")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="111404")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="112401")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="112402")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="112403")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="112405")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="112406")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="112407")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="112411")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="112501")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="112502")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="112503")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="112505")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="112506")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="112601")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="112602")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="112603")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="112604")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="113201")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="113202")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="113203")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="113204")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="114602")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="114603")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="114605")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="114606")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="114607")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="114801")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="114803")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="114804")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="114805")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="114806")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="115101")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="115102")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="115103")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="115105")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="115106")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="115107")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="115108")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="117301")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="117302")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="117303")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="117304")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="117305")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="117306")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="117401")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="117402")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="117403")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="117404")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="117405")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="117406")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="117407")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="117409")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="117410")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="117411")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="117501")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="117502")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="117503")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="117504")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="117505")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="117506")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="117507")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="117508")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="118401")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="118402")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="118404")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="118405")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="118701")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="118702")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="118703")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="118704")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="118705")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="118706")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="119501")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="119502")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="119503")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="119504")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="119506")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="119507")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="119508")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="119701")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="119702")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="119704")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="119705")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="119706")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="119707")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="119709")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="120402")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="120403")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="120404")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="120405")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="120406")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="120407")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="121002")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="121003")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="121004")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="121005")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="121006")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="121007")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="121008")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="121010")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="121011")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="121012")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="121101")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="121102")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="121103")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="121104")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="121105")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="121106")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="121501")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="121502")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="121503")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="121506")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="121507")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="121510")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="121511")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="121512")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="121601")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="121602")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="121603")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="121604")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="121605")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="121606")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="121607")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="121802")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="121803")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="121804")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="121805")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="121806")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="122401")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="122402")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="122403")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="122404")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="123001")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="123002")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="123004")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="123005")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="123006")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="123601")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="123602")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="123604")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="123605")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="123606")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="123607")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="123608")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="123609")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="123610")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="124801")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="124803")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="124804")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="124805")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="124806")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="124807")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="126001")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="126002")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="126003")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="126004")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="128902")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="128903")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="128904")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="128905")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="129402")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="129403")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="129404")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="129405")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="129406")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="129407")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="129408")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="129409")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="130201")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="130202")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="130203")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="130204")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="130205")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="130302")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="130303")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="130305")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="130306")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="130602")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="130603")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="130604")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="130605")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="130606")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="131201")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="131202")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="131203")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="131205")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="131206")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="131801")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="131802")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="131803")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="131804")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="131806")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="131807")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="131808")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="133502")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="133503")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="133504")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="133505")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="133602")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="133604")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="133605")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="133606")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="133702")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="133703")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="133704")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="133705")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="133706")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="133707")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="133903")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="133904")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="133905")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="133906")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="133907")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="133909")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="133910")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="134901")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="134902")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="134903")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="134904")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="134906")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="135201")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="135202")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="135203")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="135204")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="135205")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="135206")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="137002")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="137003")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="137004")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="137005")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="140402")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="140403")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="140404")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="140405")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="140406")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="140705")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="140706")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="140707")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="140708")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="141001")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="141002")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="141005")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="141006")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="141007")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="142001")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="142002")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="142003")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="142005")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="142006")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="142301")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="142302")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="142303")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="142304")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="142305")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="142306")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="142601")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="142602")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="142603")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="142604")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="142605")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="142606")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="142701")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="142702")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="142703")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="142704")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="142706")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="142707")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="143301")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="143302")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="143303")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="143304")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="143305")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="143801")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="143802")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="143803")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="143804")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="143805")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="144403")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="144404")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="144405")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="144406")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="144407")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="144901")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="144902")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="144903")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="144904")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="144905")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="144906")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="145602")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="145603")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="145604")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="145605")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="145606")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="145701")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="145702")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="145703")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="145704")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="145705")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="145707")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="146101")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="146102")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="146103")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="146104")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="146105")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="146701")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="146702")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="146703")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="146704")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="146705")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="146706")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="146901")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="146903")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="146904")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="146905")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="147101")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="147102")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="147103")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="147104")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="147105")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="147502")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="147503")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="147504")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="147505")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="147506")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="147601")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="147602")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="147603")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="147604")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="147605")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="147606")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="147801")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="147802")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="147803")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="147804")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="147805")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="148801")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="148802")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="148803")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="148804")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="148805")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="149101")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="149102")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="149103")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="149104")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="149207")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="149208")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="149209")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="149212")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="153001")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="153002")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="153004")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="153005")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="153006")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="153007")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="156601")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="156602")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="156603")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="156604")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="156605")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="156606")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="156607")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="157302")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="157303")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="157304")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="157305")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="160201")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="160202")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="160203")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="160204")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="160205")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="160206")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="166102")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="170504")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="170505")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="170506")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="170507")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="171102")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="171104")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="171105")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="171106")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="171107")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="171108")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="171110")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="171401")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="171402")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="171403")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="171407")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="171409")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="171602")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="171603")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="171604")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="171605")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="173801")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="173802")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="173803")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="173805")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="173806")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="173807")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="181001")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="181002")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="181004")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="181006")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="181301")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="181302")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="181303")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="181305")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="183101")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="183102")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="183103")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="183104")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="183105")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="183106")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="183107")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="183108")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="183109")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="183110")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="183111")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="184801")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="184802")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="184803")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="184804")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="184806")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="184807")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="185401")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="185402")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="185403")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="185404")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="187601")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="187602")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="187603")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="187604")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="187605")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="187607")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="187801")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="187803")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="187804")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="187805")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="187806")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="187901")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="187902")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="187903")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="187905")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="187906")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="188003")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="188005")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="188006")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="188007")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="188201")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="188202")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="188203")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="188204")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="188205")] <- 1
cses2$ita_filter[(cses2$B1004=="ITA_2006") & (cses2$B1009=="188206")] <- 1

cses2[(cses2$B1004=="ITA_2006") & (cses2$ita_filter==1), c("B3037_A", "B3037_B", "B3037_C", "B3037_D", "B3037_E", "B3037_F", "B3038_A", "B3038_B", "B3038_C", "B3038_D", "B3038_E", "B3038_F")] <- NA
  
cses2$ita_filter <- NULL